home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / netz / internet-set.v4.0 / amitcp-4.0 / bin / mysetup.rexx < prev    next >
OS/2 REXX Batch file  |  1996-07-22  |  1KB  |  57 lines
  1. /* Get info for user.dat from user */
  2.  
  3. Do While Answer ~= 'Y'
  4. Say ''
  5. Say 'Enter your login name exactly'
  6. Say ''
  7. parse pull BogoName
  8. Say ''
  9. Say 'Now enter your password exactly'
  10. Say ''
  11. parse pull BogoWord
  12. Say ''
  13. Say 'What CPU is in your Amiga?  (A) = 030  (B) = 020 std'
  14. Say ''
  15. Say 'Enter A or B   (If you have lower than A1200 Pick (B) !!'
  16. Say ''
  17. Pull SpeedMod
  18.  
  19. If SpeedMod = 'A' Then
  20.     ModIs = '030 "Speedy Billy"'
  21. Else
  22.     ModIs = '020 "Normal Norman"'
  23. EndIf
  24.  
  25. If SpeedMod = 'A' Then
  26.     BogoSpeed = '57600'
  27. Else
  28.     BogoSpeed = '38400'
  29. EndIf
  30.  
  31. Say '' 
  32. Say 'Your login name is: ' BogoName 
  33. Say ''
  34. Say 'Your password is  : ' BogoWord
  35. Say ''
  36. Say 'And you have an: ' ModIs ' Amiga'
  37. Say ''
  38. Say 'Is this correct ? (Y/N)   Enter Y or N'
  39. Say ''
  40. Pull Answer
  41.  
  42. End
  43.  
  44.     Say 'All done'
  45.  
  46. /* Write/Edit user.dat file with User details */
  47.  
  48. If Open(1,'AmiTCP:bin/user.dat','Write') Then      /* Opens user.dat for Output */
  49.     Do
  50.     BogoBit$ = BogoName'*'BogoWord'*'BogoSpeed /* put bogo var's in one var */
  51.     WriteLn(1,BogoBit$) Then                   /* write single var to file */
  52.     End
  53. Close(1)                                           /* close file 1 */
  54.  
  55. Exit
  56.  
  57.